VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmMantenimientos 
   BackColor       =   &H80000013&
   BorderStyle     =   5  'Sizable ToolWindow
   ClientHeight    =   8385
   ClientLeft      =   60
   ClientTop       =   60
   ClientWidth     =   8130
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   8385
   ScaleWidth      =   8130
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox txtnombres 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   375
      Left            =   360
      MultiLine       =   -1  'True
      TabIndex        =   0
      Top             =   1200
      Width           =   7335
   End
   Begin MSComctlLib.ListView vistaReportes 
      Height          =   5775
      Left            =   360
      TabIndex        =   1
      Top             =   1680
      Width           =   7305
      _ExtentX        =   12885
      _ExtentY        =   10186
      LabelEdit       =   1
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      FullRowSelect   =   -1  'True
      _Version        =   393217
      ForeColor       =   8388608
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      NumItems        =   0
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "MANTENIMIENTOS GENERALES"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   495
      Left            =   480
      TabIndex        =   3
      Top             =   360
      Width           =   7215
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "Nombre"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   255
      Left            =   600
      TabIndex        =   2
      Top             =   960
      Width           =   1215
   End
   Begin VB.Line Line1 
      X1              =   600
      X2              =   7680
      Y1              =   720
      Y2              =   720
   End
   Begin VB.Image cmdSalir 
      Height          =   480
      Left            =   7080
      MouseIcon       =   "frmMantenimientos.frx":0000
      MousePointer    =   99  'Custom
      Picture         =   "frmMantenimientos.frx":030A
      ToolTipText     =   "Salir de esta pantalla"
      Top             =   7680
      Width           =   480
   End
End
Attribute VB_Name = "frmMantenimientos"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdSalir_Click()
    Unload Me
End Sub

Private Sub Form_Load()
   
   Me.vistaReportes.ColumnHeaders.Add , , "Nombre del Reporte", 6500
   
   Me.vistaReportes.View = lvwReport
   Me.vistaReportes.GridLines = True
   
   
    LlenarVista


End Sub

Private Sub LlenarVista()

Dim column_header As ColumnHeader
Dim list_item As ListItem
    
    Set list_item = vistaReportes.ListItems.Add(, , "COLONIAS")
    Set list_item = vistaReportes.ListItems.Add(, , "MUNICIPIOS")
    Set list_item = vistaReportes.ListItems.Add(, , "NACIONALIDAD")
    Set list_item = vistaReportes.ListItems.Add(, , "ESTADO CIVIL")
    Set list_item = vistaReportes.ListItems.Add(, , "PARENTESCO")
    Set list_item = vistaReportes.ListItems.Add(, , "RELIGIONES")
    Set list_item = vistaReportes.ListItems.Add(, , "DEPARTAMENTOS DEL PAIS")
    Set list_item = vistaReportes.ListItems.Add(, , "LUGAR DE TRABAJO")
    Set list_item = vistaReportes.ListItems.Add(, , "CARGOS")
    Set list_item = vistaReportes.ListItems.Add(, , "DEPARTAMENTOS DENTRO DE LA EMPRESA")
    Set list_item = vistaReportes.ListItems.Add(, , "ESTADO DE LAS VENTAS CAIDAS")
    Set list_item = vistaReportes.ListItems.Add(, , "TIPOS DE DESCUENTOS")
    Set list_item = vistaReportes.ListItems.Add(, , "PROFESIONES")
    Set list_item = vistaReportes.ListItems.Add(, , "EMPRESAS O INSTITUCIONES")
    
    
      

End Sub

Private Sub vistaReportes_BeforeLabelEdit(Cancel As Integer)
            Me.Txtnombres.Text = Me.vistaReportes.SelectedItem '.ListItems '.SelectedItem.ListSubItems(0)
End Sub

Private Sub vistaReportes_Click()
                Me.Txtnombres.Text = Me.vistaReportes.SelectedItem '.ListItems '.SelectedItem.ListSubItems(0)
End Sub

Private Sub vistaReportes_DblClick()

         If Me.Txtnombres.Text = "COLONIAS" Then
            Unload Me
            frmColonias.Show 1
         End If

         If Me.Txtnombres.Text = "MUNICIPIOS" Then
            Unload Me
            frmMunicipios.Show 1
         End If

         If Me.Txtnombres.Text = "NACIONALIDAD" Then
            Unload Me
            frmNacionalidades.Show 1
         End If
         
          If Me.Txtnombres.Text = "ESTADO CIVIL" Then
            Unload Me
            frmEstado_Civil.Show 1
         End If

        If Me.Txtnombres.Text = "PARENTESCO" Then
            Unload Me
            frmParentesco.Show 1
         End If


        If Me.Txtnombres.Text = "RELIGIONES" Then
            Unload Me
            frmReligiones.Show 1
         End If
         
         
        If Me.Txtnombres.Text = "DEPARTAMENTOS DEL PAIS" Then
            Unload Me
            frmDepartamentos_pais.Show 1
         End If
         
         If Me.Txtnombres.Text = "LUGAR DE TRABAJO" Then
            Unload Me
            frmLugarTrabajo.Show 1
         End If


       If Me.Txtnombres.Text = "CARGOS" Then
            Unload Me
            frmCargos.Show 1
         End If
         
         If Me.Txtnombres.Text = "DEPARTAMENTOS DENTRO DE LA EMPRESA" Then
            Unload Me
            frmDeptos.Show 1
         End If
         
          If Me.Txtnombres.Text = "ESTADO DE LAS VENTAS CAIDAS" Then
            Unload Me
            frmEstadoVentasCaidas.Show 1
         End If

        If Me.Txtnombres.Text = "TIPOS DE DESCUENTOS" Then
            Unload Me
            frmTipos_descuentos.Show 1
         End If
         
          If Me.Txtnombres.Text = "PROFESIONES" Then
            Unload Me
            frmProfesiones.Show 1
         End If
         
         If Me.Txtnombres.Text = "EMPRESAS O INSTITUCIONES" Then
            Unload Me
             frmEmpresas_Instituciones.Show 1
         End If


 
End Sub
